home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / SliderDemo.asc < prev    next >
Text File  |  1980-03-10  |  2KB  |  95 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Remove Gadget 
  13. '  -Wb Free Slide Gadget 
  14. '  -Wb Wind Close  
  15. '  -Wb Wind Open Wb
  16. '  -Current Screen 
  17. '  -Wb Wind Base 
  18. '  -Wb Wind Rastport 
  19. '  -Wb Init Hslide Gadget  
  20. '  -Wb Init Vslide Gadget    
  21. '  -Wb Init Mslide Gadget    
  22. '  -Wb New Hslide Gadget     
  23. '  -Wb New Vslide Gadget     
  24. '  -Wb New Mslide Gadget     
  25. '  -Wb Slide Swap Look     
  26. '  -Wb Insert Gadget     
  27. '  -Wb Bevel Box     
  28. '  -Wb Gfx Ink     
  29. '  -Wb Gfx Mode      
  30. '  -Get Msg      
  31. '  -Wb Gadget Id   
  32. '  -Wb Hpos    
  33. '  -Wb Vpos    
  34. '  -Hard Mouse Key 
  35. '
  36. Amos To Back 
  37. '
  38. Wb Wind Open Wb Current Screen To 164,56,257,140,2+4+8+$2000000
  39. W=Wb Wind Base : R=Wb Wind Rastport(W)
  40. '
  41. BGAD0=Wb Init Hslide Gadget(0,42,20,198,9,$200)
  42. Wb Slide Swap Look BGAD0 : Wb Insert Gadget W To BGAD0
  43. '
  44. BGAD1=Wb Init Vslide Gadget(1,17,31,21,99,$200)
  45. Wb Slide Swap Look BGAD1 : Wb Insert Gadget W To BGAD1
  46. '
  47. BGAD2=Wb Init Mslide Gadget(2,42,31,198,99,$200)
  48. Wb Slide Swap Look BGAD2 : Wb Insert Gadget W To BGAD2
  49. '
  50. SLI_STEP0=$FFFF/120
  51. Wb New Hslide Gadget W To BGAD0,SLI_STEP0,SLI_STEP0
  52. '
  53. SLI_STEP1=$FFFF/120
  54. Wb New Vslide Gadget W To BGAD1,SLI_STEP1,SLI_STEP1
  55. '
  56. SLI_STEP2=$FFFF/120
  57. Wb New Mslide Gadget W To BGAD2,SLI_STEP2,SLI_STEP2,SLI_STEP2,SLI_STEP2
  58. '
  59. Wb Bevel Box R To 2,1,41,19,240,29
  60. Wb Bevel Box R To 2,1,40,19,241,29
  61. '
  62. Wb Bevel Box R To 2,1,17,30,39,130
  63. Wb Bevel Box R To 2,1,16,30,38,130
  64. '
  65. Wb Bevel Box R To 2,1,41,30,240,130
  66. Wb Bevel Box R To 2,1,40,30,241,130
  67. '
  68. Wb Gfx Ink R To 1,0
  69. Wb Gfx Mode R,1
  70. '
  71. While Z<>$200
  72.    Z=Get Msg(W)
  73.    If Z=$20 or Z=$40
  74.       Z1=Wb Gadget Id(Get Msg Iadr)
  75.       If Z1=0 : H=Wb Hpos(BGAD0) : End If 
  76.       If Z1=1 : V=Wb Vpos(BGAD1) : End If 
  77.       If Z1=2 : H=Wb Hpos(BGAD2) : V=Wb Vpos(BGAD2) : End If 
  78.       Wb New Hslide Gadget W To BGAD0,H,SLI_STEP0
  79.       Wb New Vslide Gadget W To BGAD1,V,SLI_STEP1
  80.       Wb New Mslide Gadget W To BGAD2,H,V,SLI_STEP2,SLI_STEP2
  81.    End If 
  82. Wend 
  83. '
  84. While Hard Mouse Key=1 : Wend 
  85. '
  86. Amos To Front 
  87. '
  88. Wb Remove Gadget W,BGAD0
  89. Wb Remove Gadget W,BGAD1
  90. Wb Remove Gadget W,BGAD2
  91. Wb Free Slide Gadget BGAD0
  92. Wb Free Slide Gadget BGAD1
  93. Wb Free Slide Gadget BGAD2
  94. Wb Wind Close W
  95.